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| 
CCCCCCCC «OHH HH KK KK DDDDDDDD mn mM = §©900000 
CCCCCCCC «OHH HH KK KK DDDDDDDD MM mM 000000 
cc rR HH KK KK DD DD MMMM MMMM «00 00 
cc HH HH KK KK DD DD MMMM MMMM 00 00 
cc it HH KK KK DD DD MM MM MM OO 00 
cc HH KK KK DD DD MM MM MM OO 00 
rae HHHHHHHHHH = KKKKKK DD DD MM mM 600 00 
cc HHHHHHHHHH KKKKKK OD DD MM MM 600 00 
cc HH HH KK KK DD DD MM MM 600 00 
cc HH HH KK KK DD DD MM mM 600 00 
cc HH HH KK KK DD DD MM mM 00 00 kar 
cc HH HH KK KK DD DD MM MM 00 00 ‘ene 
CCCCCCCC «HH HH KK KK DDDDDDDD ma MM 000000 teh | 
CCCCCCCC «OHH HH KK KK DDDDDDDD MM MM 000000 aca 
LL II1111 SSSSSSSS 
LL HII] SSSSSSSS | 
LL II $$ 
LL II ss 
LL I] Ss 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] Ss 
LL I] $$ 
LL I] SS | 
LL Il Ss 
LLELLLLLLLL III SSSSSSSS 
LLLLLLLLLL III SSSSSSSS 
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} MODULE CHKDMO ( LANGUAGE, (BL ,. 
0 g IDENT = vou 1339? 
4 ) = 
096 BEGIN 
' 
43 PITITILILILILILI TLL LLL LLL TTI Lit i TTI iiiiiiiiiiiiiiiiiiiiiti 
ie 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ag 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bees AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sort ARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
it 
© 
t 
® 
* 
® 
® 
* 
* 
ie TRANSFERRED. * 
a 
* 
® 
* 
® 
® 
® 
* 
*® 
* 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
” OORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: ABSTRACT: 
This routine dismounts the volume in use if it should be. 
44 : ENVIRONMENT: 
0041 i STARLET operating system, including privileged system services 
oe§ and internal exec routines. 
9 44 1 I-- 
45 ‘ 
0046 ' 
084 AUTHOR: Andrew C. Goldstein, CREATION DATE: 29-Apr-1977 17:19 
rh MODIFIED BY: 
0981 i 
O36 : V03-005 HHO049 ang 16-Aug-1984 
bez } Call IOCSDALLOC pat o handle deallocation on dismount. 
095 i V03-004 HHO047 ang 13-Aug-1984 
BoeS } Correct LOCSDALLOC ‘pty Linkage (UCB address in R5). 
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Part of this routine runs at IPL$_SYNCH, so it must be locked into the 
! working set. 


| 
; O038 , } V03-003 ACG0441 Andrew C. Goldstein, 10-Aug-1984 17:02 
; 0 ,} Rework dismount interlocking to eliminate races and 
; 060 1! uninterlocked operation; clear the device lock; perform 
3 bes : deallocation here instead of at last deassign. 
3 O98 1} vO3-002 LMP0221 L. Mark Pilani, 27-Mar-1984 12:59 
: 0646 1! Change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 
; 9065 ' ORBSW_PROT. 
g 006? 7% V03-001 PRDO037 Paul R. DeStefano 13-Sep-1983 
; 0068 1! Modified to no longer clear volume valid when dismounting 
3 634 : the volume. 
; 0071 1! v02=001 ACG0226 Andrew C. Goldstein, 24-Nov-1981 22:28 
3 it ; Issue IOS_AVAILABLE on DISMOUNT/NOUNLOAD 
; 0074 1! v02-000 ACC0167 _ Andrew C. Goldstein 7-May-1980 18:47 
3 0075 1! Previous revision history moved to F11A.REV 
3 0076 1 !ee 
; 0077 1 
; 0078 1 
; 0079 1 LIBRARY ‘SYSS$LIBRARY:L1B.L32'; 
H 0080 : REQUIRE ‘"SRCS$:FCPDEF .B832'; 
3 1 
3 1 
: 1 
3 1 
; 1 
: 1 
g 1 


LOCK_CODE; 
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GLOBAL ROUTINE CHECK_DISMOUNT : NOVALUE = 
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i 
FUNCTIONAL DESCRIPTION: 


++ 


RCICHKDMO.B32; ? art 
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5 eed 


4 This routine checks if the volume in use is marked for dismount and 
idle. If so, it completes the dismount. 
CALLING SEQUENCE: | 
CHECK _DISMOUNT () 
INPUT PARAMETERS: 
NONE 
IMPLICIT. INPUTS 
CURRENT_UCB: UCB of unit in use 
CURRENT VCB: VCB of volume in use 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT MM tides 
ROUTINE VALUE: 
NONE 


: SIDE EFFECTS: 
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ACP$AQB0: queue header for ACP 
i 

i 
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bi. Volume dismounted if appropriate 
ie 
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BEGIN 
LINKAGE 
DALLOC_DEV = JSB spectateg = 4, REGISTER = 5) 
: NOPRESERVE (3) 
PRESERVE (2, 4, 5) 

044 NOTUSED (6, 7, 8, 9, 10, 11); 
Reet LOCAL 

45 ucB : REF BBLOCK, ! Local address of UCB 
pees vcB : REF BBLOCK, ' Local address of VCB 

44 ORB : REF BBLOCK, ' Local address of ORB 

448 FCB : REF BBLOCK, ' local address of FCB 

449 STS !' general status value 

450 Lksfs : VECTOR (63, | Tock status block 

tt wCB : REF BBLOCK; ' local address of WCB 

re EXTERNAL 

454 CHANNEL ' channel nyaber for all 1/0 

55 CURRENT_UCB REF BBLOCK, / UCB of unit in process 

#26 CURRENT _VCB : REF BBLOCK, ! VCB of volume in process 

45 QUEUE _HEAD : REF BBLOCK, ! address of ACP queue header 

£38 CTL$GC_PCB : ADDRESSING_ * MODE (GENERAL) ; ' PCB address 
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; (14 9 EXTERNAL ROUTINE 

; (16 K_ 1008 ' lock 1/0 data base mutex 

: 14 ¢ UNLOCK 1068, i unlock 1/0 data base mutex 

: 1 9 6 DEALLOCATE, ' deallocate dynamic memory 

9 464 LUSH_FID ! flush blocks from the buffer pool 

oe § 65 SEND_ERRLOG ' send message to error logger 

eS 08 1OCSBALLOC_OmT : DALLOC_DEV ADDRESSING_MODE (GENERAL); 

; 1546 6 ! deallocate device 

s 335 ree 

g 3 $ ry 

3 ; rf 4! } First check the mark for dismount bit. 

.*.¢ § oie 

: 160 47 UCB = .CURRENT_UCB; 
: 161 474 2 ORB = -UCBLUCBS ORB) 
: 16 475 2 IF NOT .BBLOCK COCBCUCBSL_DEVCHAR], DEVSV_DMTJ | 
3 127 pers THEN RETURN; 
; 165 0478 ! The volume is marked for dismount. The remainder of the tests and the 
3 166 0479 ! dismount bit twiddling must be done interlocked. 
; 16 0480 ! 
; 168 0481 

3; 6169 Bees LOCK_IODB (); 

; 170 04 SET_TPL (1PL$_SYNCH); 

iH \7¢ 0485 VCB = .CURRENT_VCB; 

: 17 04 IF .VCBLVCBSW_TRANS] EQL 1 

: 174 0487 THEN 
s io? rt +3 BEGIN 
3 139 0490 ! The volume is marked for dismount and idle. Set the dismount in progress 

s 178 0491 ' bit to stop all further activity. 

; 179 BOs ! 

; 180 049 
s 181 0494 UCBCUCB$V_DISMOUNT] = 1; 

; 13 p69 UNLOCK_10BB (); 
s ize ot 4 Make an error log entry to record the dismount. 
> 186 499 
3 + 14 Bape SEND_ERRLOG (0, .UCB); 
; 189 050 !' Flush the buffer pool of any blocks of this volume. 

: 190 $28 : 

3; «6191 504 

; 196 505 FLUSH_FID (0); 

5; 19 208 ; 

3 138 23 : Issue an unload function if unload was requested. 
3 136 209 

; #19 P 0510 $ol0w ( 

: 198 P 0511 CHAN = .JO_CRANNEL, | 
; 199 BE 216 EFN = EFN, 

; P 051 FUNC = (IF TESTBITSC (UCBCUCBSV_UNLOAD)) 

; 201 P 0514 THEN I0$_UNLOAD 

; 0¢ P 0515 ELSE IOS"AVAILABLE) 

3; a 0516 de 


i hy 
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3 17 : 
3 5 18 ! If this is a shared mount, raise the device lock to PW to get the ; 
3 1 ' value block, and grepere for writ ng t back. If the device is not . 
3 0 ! shared, the lock is already at EX. If the device is not cluster ‘ 
; 208 1 3! accessible, there is no lock. : 
; 211 & IF (LKSTS C1) = .UCB CUCBSL 5 ened NEQ 0 : 
; \¢ 5 AND .UCB CUCBSL_PID) EOC : 
; ¢l 5 § THEN : 
; 216 & BEGIN ; 
; 15 P 8 4 STS = SENQW (LKMODE = LCKSK_PWMODE, ‘ 
§ 18 P 9 4 LKSB = LKSTS, ‘ 
$ ¢ P0530 4 EFN = EFN : 
; 218 P0531 4 FLAGS = LCKSM_CONVERT + LCKSM_SYNCSTS | : 
; el? 5 ; 4 + LCKSM_NOQUOTA); 3 
; 0 5 & IF NOT .STS : 
r 1 534 4 OR NOT .LKSTS | ’ 
3 ¢ 03 ‘ 4 be BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock marager error'); : 
> 226 5 ‘ ewes F 
; 5 538 : Mark the volume dismounted and disconnect the VCB from the UCB. : 
; $59 sto 3 | 
; 8 541 LOCK _I0DB (); ; 
3 4 266 BBLOTK CUCBCUCBSL_DEVCHAR], DEVS$V_MNT] = 0; 5 
: 54 BBLOCK CUCBCUCBSL-DEVCHAR], DEVS$V~DMT) = 0: : 
5 1 544 CK LUCBLUCBSL_DEVCHAR), DEVSV_SwWiJ = 0; : 
3 ¢ S26? UCBCUCBSL_VCB) = 0; ; 
; 378 UCBLUCBSW_REFC) = ,UCBCUCBSW_REFC) - 1; : 
; 054 UCBLUCBSV_DISMOUNT] = 0; ; 
; 235 0548 ORBCORBS$L_SYS_PROT) = 0; ; 
; 0549 ORBCORB$L-OWN-PROT) = 0; ; 
; 0550 ORBCORBSL-GRP_PROT) = 0; | : 
; 38 0551 ORBLORBSL_WOR PROT) = 0; : 
; 239 Bee6 ORBCORBSL_OWNER) = 0; : 
; re Beez UCBLUCB$SW_DIRSEQ]) = .UCBCUCBSW_DIRSEQ) + 1; : 
; ri} 0555 ! If the device lock exists, now demote it as appropriate (to CR if : 
; 26 geo ! the device is not allocated, to EX otherwise). Clear the value : 
> 2646 55 ! block if this is the final dismount. ; 
; $2 3238 : ; 
3 6 560 IF _.LKSTS C1) NEQ 0 | ; 
; 26 561 THEN | ; 
: 26 266 4 BEGIN | : 
; 250 565 4 LKSTS ¢ = 0; : 
; 51 564 4 LKSTS = Q; : 
; 25 565 4 LKSTS (4) = 0; : 
; 0367 ? LKSTS (5) = 0; : 
; 5 Pp 228 4 STS = SENQ (LKMODE = IF .UCB CUCBSL_PID) NEQ 0 : 
; 2 ig 28 4 THEN LCKSK_EXMODE 3 
3 P0570 4 ELSE LCKSK_CRMODE, 3 
; 258 P 0571 4 LKSB = LKSTS, : 
: 259 p 26 4 EFN = EFN : 
; 260 P0573 4 FLAGS = LCKSM_CONVERT + LCKSM_CVTSYS ; 


7 
16-Se 1984 00:48:24 VAX=11 Bliss-32 V4,0-742 P 
10365-1986 19:38:49 DISKSVMSMASTER:CF11A.SRCICHKDMO.B32;1->° (23 


3 6) P MN : + LCKSM_SYNCSTS + LCKSM_NOQUOTA + LCKSM_VALBLK : 
: 26 i: 4 If NOT . | : 
> 264 4 OR NOT .LKSTS | : 
; 66 28 4 [res BUG_CHECK (XQPERR, FATAL, "Unexpected lock manager error'); : 
: 26 0 ° | ; 
; os ; ; Call IOCSDALLOC_DMT routine to deallocate the device when appropriate. : 
: 270 | ; 
: 371 ; 6 IOCSDALLOC_DMT (.CTLSGL_PCB, .UCB); | 
: 27 $ ! We can now release the locks while we proceed to clean up the mounted | ; 
; 276 5 ' volume data base. 3 
: 275 588 3 i | : 
oe 7 5 9 | Ps 
; 4 290 UNLOCK_I0DB (); | ; 
: 279 59 UNTIL REMQUE (.VCBCVCBSL_FCBFLJ, FCB) : 
: 980 $898 DO sae 
; (281 0594 4 BEGIN 
; 28 0595 4 UNTIL REMQUE (.FCBCFCBSL_WLFLJ, WCB) ! Release all window segments 
; 28 0596 4 DO DEALLOCATE (.WCB); 
; «284 R202 4 DEALLOCATE (.FCB); ! release all FCB's 
3 285 598 END; 
3 oe 0599 
; 4 pepe DEALLOCATE (.VCB); ! release the VCB 
: 289 960¢ QUEUE _HEADCAQBSB_MNTCNT] = .QUEUE_HEADCAQBSB_MNTCNT) = 1; | 
: 290 060 END ! end-of dismount processing 
: 291 0604 
3 29 0605 2 ELSE 
; 29 960 UNLOCK_I0DB (); 
; 295 0608 1 END; ! end of routine CHECK_DISMOUNT 
| 
.TITLE CHKDMO | 
.IDENT \V04-000\ | 
.EXTRN IO_CHANNEL, CURRENT_UCB | 
“EXTRN CURRENT VCB, QUEUE_AEAD | 
-EXTRN CTLSGL_PCB, LOCK_I0DB | 
“EXTRN UNLOCK-10DB, DEACLOCATE 
-EXTRN FLUSH_FID, SEND_ERRLOG 
“EXTRN IOCS$DALLOC_DMT, SYS$Q10W 
-EXTRN SYSSENQW, BUGS_XQPERR 
-EXTRN SYSS$ENQ 
-PSECT SLOCKEDC1$,NOWRT,2 | 
OOFC 00000 -ENTRY CHECK_DISMOUNT, Save R2,R3.R4,R5,R6,R7 ; 0403 | 
7 000G CF 9€ 0006 MOVAB DEALLOCATE, R7 : | 
6 0006 CF 9E 0000 MOV UNLOCK 1008, R6 : | 
18 C2 0000C SUBL #24, SP 3 
00006 CF 00 0000F MOVL CURRENT UCB UCB > 0473 | 
1¢ AS DO 00014 MOVL § 28(UCB)> ORB > 0474 
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; Routine Size: 309 bytes, Routine Base: S$LOCKEDC1$ + 0000 


96 0609 1 
97 ge19 1 END 
98 611 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
SLOCKEDC1$ 309 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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7E 7C 000C9 CLRQ = =( SP) : 0575 ; 
cE € 000¢B CLRQ 2s = (SP) ‘ ; 
— 7¢ 000CD CLRQ. 2s = (SP) : : 
7E ps CF CLRL (SP) : ; 
7E 8F 9A 00001 MOVZBL #107, =(SP) : ; 
AE 9F D3 PUSHAB LKSTS ; : 
. &£ D5 D TSTL 44 (UCB) : : 
4 1 DB BEQL if: : ; 
dd 00000 PUSHL # F ; 
11 OOODF BRB 8$ : | ; 
DD O00E1 7S: PUSHL #1 : | : 
1 0D OE 8$: PUSHL #1 : : 
000000006 90 2 F E CALLS #11, SYSSENQ : : 
4 D oeC MOVL RO, STS ; | : 
03 4 € EF BiBC STs, 9$ : 0576) ; 
rs 6E EB oF BLBS = LKSTS, 10$ : 0577 | : 
Fer F5 9 BUGW : 0578 ; 
90 O* O00F -WORD  <BUG$_XQPERR!4> : : 
54 000000006 0 DO O00F9 10 MOVL TL$GC_PCB, R + 0584 : 
000000006 00 16 00100 JSB IOCSDACLOC’ DMT ; ; 
$6 3 FB 001 CALLS #0, UNLOC DB ; 0590 : 
5 00 Be oF 0109 118: RENGUE a0ivce). FCB : 0592 : 
54 10 83 oF O10F 128: REMQUE a1<Fce), WCB + 0595 : 
54 DD O113 PUSHL WCB + 0596 ; 
67 01 FB 0011 CALLS #1, DEALLOCATE : : 
£3 11 OO11A BRB 128 : : 
53 pd OO1IC 138 PUSHL FCB : 0597 ; 
67 01 FB OO11E CALLS #1, DEALLOCATE : : 
ES 11 00121 BRB 11§ : 0592 ; 
2 DD 0125 14$ PUSHL CB > 0600 ; 
67 01 FB 0125 CALLS #1, DEALLOCATE F ; 
7 ge SBP Batap BEER SYERSMEADe peel ead” 
04 00130 RET + 0486 : 
66 00 FB 00131 15$ CALLS #0, UNLOCK_10DB > 0606 : 
04 001 RET > 0608 ; 


“680 If: c0-1 38 99:58:4 —DESkSuMGMASTERSCFTIAcSRE JCHKOMO.832;1°%° 2 


Library Statistics 


; eccccee= Symbols -o---e-- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 38 0 1000 00:01.9 | 
i 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CHKDMO/OBJ=0BJ$:CHKDMO MSRC$:CHKDMO/UPDATE=(ENH$: CHKDMO) 

; Size: 309 code + 0 data bytes 

Time 00 


> Run 211. 
: Elapsed Time: :37.0 
; Lines/CPU Min: 


250 
; Senay Aik a 20484 
: penety Used: 151 pages 
; Compilation Complete 
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